home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 1-Reference / Apple Literature Guide / TIFFS / MacScan™1.49 / †MacScan™1.49.rsrc / STRw_34 < prev    next >
Text File  |  1989-04-27  |  280b  |  1 lines
  1. /textcrop {exch findfont setfont newpath 0 0 moveto dup true charpath pathbbox /y2 exch def /x2 exch def /y1 exch def /x1 exch def 1 x2 x1 sub div 1 y2 y1 sub div scale x1 neg y1 neg translate newpath 0 0 moveto true charpath clip x1 y1 translate x2 x1 sub y2 y1 sub scale} def